home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 126-150 / scopedisk143 / vlt4.824 / rexx / sendascii.vlt < prev    next >
Text File  |  1995-03-19  |  547b  |  32 lines
  1. /** SendASCII.vlt
  2. *
  3. *   VLT ASCII send test.
  4. *
  5. **/
  6.  
  7. filename = getenv(sysfilnam)
  8. dirname  = ""
  9.  
  10. nf = max(lastpos("/", filename), lastpos(":", filename))
  11.  
  12. if nf ~= 0 then do
  13.    dirname = substr(filename, 1, nf - 1)
  14.    filename = substr(filename, nf + 1)
  15. end
  16.  
  17. filename = GetFile(50,50,dirname,filename,"Enter File Name",VLT)
  18. if filename = "" then exit
  19.  
  20. call setenv(sysfilnam, filename)
  21.  
  22. call open(infile, filename, READ)
  23. do i = 1
  24.    str = readln(infile)
  25.    if EOF(infile) then leave
  26.    'send raw ('||str||'0d'x||')'
  27. end
  28.  
  29. call close(infile)
  30. exit
  31.    
  32.